Unit DefaultClasses;

{$mode objfpc}{$H+}

Interface

Uses
  xpTABLE,
  Crt;

Var
//PRIMARY STAT ATTRIBUTES
  Health, Mana,
  HP, MP,
  Strength, Agility, Wisdom,
  Rage, Energy : Integer;
  Gold : Integer;
  ClassType : shortString;


//THE THREE STARTING CLASSES
Procedure WarriorClass;
Procedure MageClass;
Procedure ArcherClass;
Procedure ClassReset(Var Health, Hp, Strength, Agility, Wisdom, Mana, MP, Rage, Energy : Integer);

Implementation

//WARRIOR CLASS
Procedure WarriorClass;
Begin
  ClassType := 'Warrior';
  Health := 200;
  HP := 200;
  Rage := 100;
  Strength := 1;
  Level := 1;
  EXP := 1;
  Gold := 0;

end;

//MAGE CLASS
Procedure MageClass;
Begin
  ClassType := 'Mage';
  Health := 170;
  HP := 170;
  Mana := 100;
  MP := 100;
  Wisdom := 1;
  Level := 1;
  EXP := 1;
  Gold := 0;

end;

//ARCHER CLASS
Procedure ArcherClass;
Begin
  ClassType := 'Archer';
  Health := 200;
  HP := 200;
  Energy := 100;
  Agility := 1;
  Level := 1;
  EXP := 1;
  Gold := 0;

end;


//STAT FUCKER UPPER
Procedure ClassReset(Var Health, Hp, Strength, Agility, Wisdom, Mana, MP, Rage, Energy : Integer);
Begin
  HP := 0;
  Health := 0;
  Strength := 0;
  Agility := 0;
  Wisdom := 0;
  Mana := 0;
  MP := 0;
  Rage := 0;
  Energy := 0;
end;

End.

